Skip to content

Commit

Permalink
fix haddock
Browse files Browse the repository at this point in the history
  • Loading branch information
LeventErkok committed Nov 7, 2024
1 parent 6e31812 commit dc343de
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions Documentation/SBV/Examples/WeakestPreconditions/Length.hs
Original file line number Diff line number Diff line change
Expand Up @@ -42,8 +42,7 @@ data LenS a b = LenS { xs :: a -- ^ The input list
instance (SymVal a, Show (f a), Show b) => Show (LenS (f a) b) where
show LenS{xs, ys, l} = "{xs = " ++ show xs ++ ", ys = " ++ show ys ++ ", l = " ++ show l ++ "}"

-- | We have to write the bijection between 'LenS' and 'LenC' explicitly. Luckily, the
-- definition is more or less boilerplate.
-- | Injection/projection from concrete and symbolic values.
instance Queriable IO (LenS (SList Integer) SInteger) where
type QueryResult (LenS (SList Integer) SInteger) = LenS [Integer] Integer

Expand Down

0 comments on commit dc343de

Please sign in to comment.