diff --git a/Data/FMList.hs b/Data/FMList.hs
--- a/Data/FMList.hs
+++ b/Data/FMList.hs
@@ -87,7 +87,9 @@
 flatten l   = FM $ \f -> unFM l (foldMap f)
 
 fromList    :: [a] -> FMList a
-fromList    = List.foldr cons empty
+fromList    = unfoldr listSplit where
+  listSplit [] = Nothing
+  listSplit (x:xs) = Just (x, xs)
 
 null :: FMList a -> Bool
 null = foldr (\_ _ -> False) True
@@ -112,11 +114,11 @@
 
 take :: (Ord n, Num n) => n -> FMList a -> FMList a
 take n l = FM $ \f -> 
-  foldr (\e r i -> if n > 0 then mappend (f e) (r (i-1)) else mempty) (const mempty) l n
+  foldr (\e r i -> if i > 0 then mappend (f e) (r (i-1)) else mempty) (const mempty) l n
 
 drop :: (Ord n, Num n) => n -> FMList a -> FMList a
 drop n l = FM $ \f -> 
-  foldr (\e r i -> if n <= 0 then mappend (f e) (r i) else r (i-1)) (const mempty) l n
+  foldr (\e r i -> if i <= 0 then mappend (f e) (r i) else r (i-1)) (const mempty) l n
 
 takeWhile :: (a -> Bool) -> FMList a -> FMList a
 takeWhile p l = FM $ \f -> 
diff --git a/fmlist.cabal b/fmlist.cabal
--- a/fmlist.cabal
+++ b/fmlist.cabal
@@ -1,5 +1,5 @@
 name:                fmlist
-version:             0.1
+version:             0.1.1
 synopsis:            FoldMap lists
 description:         
   FoldMap lists are lists represented by their foldMap function.