File: Utils.hs

package info (click to toggle)
haskell-glob 0.7.5-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 192 kB
  • sloc: haskell: 1,193; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 204 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
-- File created: 2008-10-15 20:50:31

module Utils where

fromRight (Right x) = x
fromRight _         = error "fromRight :: Left"

isRight (Right _) = True
isRight _         = False

a --> b = not a || b