Skip to content

Commit

Permalink
Make a haddock comment
Browse files Browse the repository at this point in the history
  • Loading branch information
yav committed Apr 27, 2009
1 parent 2a10d5e commit 3428887
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Data/Integer/Presburger/Prop.hs
Expand Up @@ -89,7 +89,7 @@ normal t p = case prop p of


-------------------------------------------------------------------------------- --------------------------------------------------------------------------------


-- The meanings of atomic propositions -- | The meanings of atomic propositions
eval_prop :: Prop PosP -> Env -> Bool eval_prop :: Prop PosP -> Env -> Bool
eval_prop (Prop neg p) env = if neg then not res else res eval_prop (Prop neg p) env = if neg then not res else res
where res = case p of where res = case p of
Expand Down

0 comments on commit 3428887

Please sign in to comment.