Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

started on cleaner unit tests

Browse source
This commit is contained in:
sebastian 2023-03-25 00:02:38 +01:00
parent accbd4eea6
commit 05333c5689
2 changed files with 78 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tests/DoStrings.hs Normal file
View file

@ -0,0 +1,9 @@
module DoStrings where
import Prelude hiding ((>>), (>>=))
(>>) :: String -> String -> String
(>>) str1 str2 = str1 ++ "\n" ++ str2
(>>=) :: String -> (String -> String) -> String
(>>=) str f = f str