lio-0.0.2: Examples/LambdaChair/BobCode.hs

{-# LANGUAGE CPP #-}
#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 702)
{-# LANGUAGE Safe #-}
#else
#warning "This module is not using SafeHaskell"
#endif
module BobCode ( mainReview ) where

import Safe

findPaper' s = do
  ep <- findPaper s
  case ep of
    Left e -> error $ "Failed with" ++ e
    Right p -> return p

mainReview = do
  p1 <- findPaper' "Flexible Dynamic..."
  p2 <- findPaper' "A Static..."
  appendToReview p2 "Hmm, IFC.."
  readReview p2
  readReview p1