diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,11 @@
 # Revision history for net-spider-pangraph
 
+## 0.1.1.0  -- 2019-07-15
+
+* Add `attributesFromGraphML` function.
+* Add `ToAtom` instance to `NetSpider.GraphML.Writer.AttributeValue`.
+
+
 ## 0.1.0.0  -- 2019-05-03
 
 * First version. Released on an unsuspecting world.
diff --git a/net-spider-pangraph.cabal b/net-spider-pangraph.cabal
--- a/net-spider-pangraph.cabal
+++ b/net-spider-pangraph.cabal
@@ -1,5 +1,5 @@
 name:                   net-spider-pangraph
-version:                0.1.0.0
+version:                0.1.1.0
 author:                 Toshio Ito <debug.ito@gmail.com>
 maintainer:             Toshio Ito <debug.ito@gmail.com>
 license:                BSD3
@@ -23,7 +23,7 @@
                         NetSpider.Pangraph.Atom
   -- other-modules:        
   build-depends:        base >=4.11.1.0 && <4.13,
-                        net-spider >=0.3.0.0 && <0.4,
+                        net-spider >=0.3.1.0 && <0.4,
                         bytestring >=0.10.8.2 && <0.11,
                         text >=1.2.3.1 && <1.3,
                         pangraph >=0.2.1 && <0.3,
diff --git a/src/NetSpider/Pangraph.hs b/src/NetSpider/Pangraph.hs
--- a/src/NetSpider/Pangraph.hs
+++ b/src/NetSpider/Pangraph.hs
@@ -21,6 +21,7 @@
          -- * Utility
          timestampAttributes,
          writePangraph,
+         attributesFromGraphML,
          -- * Re-exports
          Attribute,
          Key,
@@ -33,6 +34,7 @@
 import Data.Text (pack)
 import Data.Text.Encoding (encodeUtf8)
 import Data.Time.LocalTime (TimeZone(..))
+import qualified NetSpider.GraphML.Writer as NGraphML
 import NetSpider.Snapshot
   ( SnapshotNode, SnapshotLink,
     nodeId, nodeAttributes, nodeTimestamp, isOnBoundary,
@@ -138,3 +140,9 @@
 -- | Write 'P.Pangraph' to the given file in GraphML format.
 writePangraph :: P.Pangraph -> FilePath -> IO ()
 writePangraph p file = BS.writeFile file $ GraphML.write p
+
+-- | Make Pangraph attributes from GraphML's attributes.
+--
+-- @since 0.1.1.0
+attributesFromGraphML :: NGraphML.ToAttributes a => a -> [Attribute]
+attributesFromGraphML = toAttributes . NGraphML.toAttributes
diff --git a/src/NetSpider/Pangraph/Atom.hs b/src/NetSpider/Pangraph/Atom.hs
--- a/src/NetSpider/Pangraph/Atom.hs
+++ b/src/NetSpider/Pangraph/Atom.hs
@@ -20,6 +20,7 @@
 import Data.Text.Encoding (encodeUtf8)
 import qualified Data.Text.Lazy as TL
 import Data.Word (Word, Word8, Word16, Word32)
+import qualified NetSpider.GraphML.Writer as GraphML
 
 -- | 'Atom' is the type for Node ID and attributes in Pangraph data
 -- model.
@@ -88,3 +89,13 @@
 
 instance ToAtom Bool where
   toAtom = showAtom
+
+instance ToAtom GraphML.AttributeValue where
+  toAtom v =
+    case v of
+      GraphML.AttrBoolean b -> showAtom b
+      GraphML.AttrInt i -> showAtom i
+      GraphML.AttrLong l -> showAtom l
+      GraphML.AttrFloat f -> showAtom f
+      GraphML.AttrDouble d -> showAtom d
+      GraphML.AttrString t -> showAtom t