diff --git a/elbow.cabal b/elbow.cabal
--- a/elbow.cabal
+++ b/elbow.cabal
@@ -1,5 +1,5 @@
 name:                elbow
-version:             0.1.1.0
+version:             0.2.0.0
 synopsis:            Find the elbow point.
 description:         Use rotations to identify the elbow point of a two-dimensional long-tailed distribution.
 homepage:            http://github.com/GregorySchwartz/elbow#readme
diff --git a/src/Math/Elbow.hs b/src/Math/Elbow.hs
--- a/src/Math/Elbow.hs
+++ b/src/Math/Elbow.hs
@@ -10,7 +10,7 @@
   ( findElbow
   , findElbowList
   , getRotationAngle
-  , MaxMin (..)
+  , MinMax (..)
   ) where
 
 -- Remote
@@ -20,7 +20,7 @@
 -- Local
 
 
-data MaxMin = Max | Min
+data MinMax = Min | Max deriving (Read, Show)
 
 -- | Convert a list to a tuple.
 listToTuple :: [a] -> Maybe (a, a)
@@ -41,18 +41,18 @@
 -- (for positive x and y, top left hump would be Max, bottom right dip would be
 -- Min). Matrix rows are observations, columns are dimensions.
 findElbow :: (RealFloat a, H.Numeric a)
-          => MaxMin -> H.Matrix a -> Maybe (Int, (a, a))
-findElbow maxMin m = do
+          => MinMax -> H.Matrix a -> Maybe (Int, (a, a))
+findElbow minMax m = do
   theta <- getRotationAngle m
 
   let co = cos theta
       si = sin theta
       rot = (2 H.>< 2) [co, -si, si, co]
       rotated = m H.<> rot
-      findMaxMin Max = H.maxIndex
-      findMaxMin Min = H.minIndex
+      findMinMax Max = H.maxIndex
+      findMinMax Min = H.minIndex
 
-  idx <- fmap (findMaxMin maxMin) . flip atMay 1 . H.toColumns $ rotated
+  idx <- fmap (findMinMax minMax) . flip atMay 1 . H.toColumns $ rotated
 
   fmap (idx,) . listToTuple . H.toList $ m H.! idx
 
@@ -61,5 +61,5 @@
 -- (for positive x and y, top left hump would be Max, bottom right dip would be
 -- Min). Matrix rows are observations, columns are dimensions. List of columns.
 findElbowList :: (RealFloat a, H.Numeric a)
-              => MaxMin -> [[a]] -> Maybe (Int, (a, a))
-findElbowList maxMin = findElbow maxMin . H.fromColumns . fmap H.fromList
+              => MinMax -> [[a]] -> Maybe (Int, (a, a))
+findElbowList minMax = findElbow minMax . H.fromColumns . fmap H.fromList