libraries/base/tests/read-show-solo.hs


1
2
3
4
5
6
7
8
9

module Main (main) where
import Data.Tuple (Solo (..))

main = do
  print $ Solo (3 :: Int)
  print $ Solo (Just "")
  print $ Just (Solo "")
  print (read (show (Solo (3 :: Int))) :: Solo Int)
  print (read "Just Solo { getSolo = 5 }" :: Maybe (Solo Int))