Skip to content

Commit 96b04c3

Browse files
committed
Update hello and ex1.txt from ch13
1 parent 41a0c7a commit 96b04c3

File tree

5 files changed

+16
-6
lines changed

5 files changed

+16
-6
lines changed

ch13/ex1.txt

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
1+
Intermission: Check your understanding
2+
13
1. forever and when
24

35
2. Data.Bits and Database.Blacktip.Types
@@ -10,6 +12,6 @@ a) MV == Control.Concurrent.MVar
1012
FPC == Filesystem.Path.CurrentOS
1113
CC == Control.Concurrent
1214

13-
b) FS.writeFile refers to the Filesystem's writeFile function
15+
b) FS.writeFile refers to the Filesystem module, writeFile function
1416

1517
c) forever came from the Control.Monad library

ch13/hello/exe/Main.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,10 @@
11
module Main where
22

3+
import System.IO
4+
35
import DogsRule
46
import Hello
5-
import System.IO
7+
68

79
main :: IO ()
810
main = do

ch13/hello/hello.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,5 +23,5 @@ library
2323
hs-source-dirs: src
2424
exposed-modules: DogsRule
2525
, Hello
26-
build-depends: base >= 4.7 && < 5
2726
default-language: Haskell2010
27+
build-depends: base >= 4.7 && < 5

ch13/hello/src/DogsRule.hs

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,7 @@
1-
module DogsRule ( dogs ) where
1+
module DogsRule
2+
( dogs )
3+
where
4+
25

36
dogs :: IO ()
47
dogs = do

ch13/hello/src/Hello.hs

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,7 @@
1-
module Hello ( sayHello ) where
1+
module Hello
2+
( sayHello )
3+
where
4+
25

36
sayHello :: String -> IO ()
4-
sayHello name = putStrLn $ "Hi " ++ name ++ "!"
7+
sayHello name = putStrLn ("Hi " ++ name ++ "!")

0 commit comments

Comments
 (0)