diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2017-10-16 15:16:56 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2017-10-16 15:17:18 +0200 |
| commit | 25379bbdcc51e0ccd243d3391fa6bc266cd314e2 (patch) | |
| tree | bdf4fcfbf0a5485ecde15ed2dd410974f2c630a7 /src/Util.hs | |
| parent | 5703498008563418c4407c1608cd8cac933f96c0 (diff) | |
| download | comatose-25379bbdcc51e0ccd243d3391fa6bc266cd314e2.tar.gz comatose-25379bbdcc51e0ccd243d3391fa6bc266cd314e2.tar.bz2 comatose-25379bbdcc51e0ccd243d3391fa6bc266cd314e2.zip | |
Split Main.hs
Replace tabs with spaces. No functional changes.
Diffstat (limited to 'src/Util.hs')
| -rw-r--r-- | src/Util.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Util.hs b/src/Util.hs new file mode 100644 index 0000000..15ca593 --- /dev/null +++ b/src/Util.hs @@ -0,0 +1,7 @@ +module Util (safeHead) where + +-- |Safe head function +safeHead [] = Nothing +safeHead (x:_) = Just x + + |