Commit 927fe3b4 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #1468

parent 193348e9
......@@ -30,3 +30,5 @@ test('ghci019', normal, ghci_script, ['ghci019.script'])
test('ghci020', normal, ghci_script, ['ghci020.script'])
test('ghci021', normal, ghci_script, ['ghci021.script'])
test('ghci022', normal, ghci_script, ['ghci022.script'])
test('ghci026', normal, ghci_script, ['ghci026.script'])
import Data.Maybe
:browse
:l ../prog002/A1.hs
:browse
:add ../prog002/B.hs
:browse
data Maybe a = Nothing | Just a
maybe :: b -> (a -> b) -> Maybe a -> b
isJust :: Maybe a -> Bool
isNothing :: Maybe a -> Bool
fromJust :: Maybe a -> a
fromMaybe :: a -> Maybe a -> a
maybeToList :: Maybe a -> [a]
listToMaybe :: [a] -> Maybe a
catMaybes :: [Maybe a] -> [a]
mapMaybe :: (a -> Maybe b) -> [a] -> [b]
data T = A Int | B Float
f :: Double -> Double
f :: Double -> Double
g :: Double -> Double
h :: (Integral a) => a -> a
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment